home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / SecalDemo / Inc / tagcalls / asl.inc < prev    next >
Encoding:
Text File  |  1998-06-24  |  400 b   |  19 lines
  1. pattern AllocAslRequestTags(_reqType, ...) is
  2.     push a6;
  3.     push.l ...;
  4.     safe d0.l:=_reqType; a0:=sp;;
  5.     a6:=AslBase; jsr [a6-48];
  6.     sp:=sp+countof(...)<<2;
  7.     pop a6;
  8. endp;                                                            # ALLOCASLREQUESTTAGS
  9.  
  10. pattern AslRequestTags(_requester, ...) is
  11.     push a6;
  12.     push.l ...;
  13.     safe a0:=_requester; a1:=sp;;
  14.     a6:=AslBase; jsr [a6-60];
  15.     sp:=sp+countof(...)<<2;
  16.     pop a6;
  17. endp;                                                            # ASLREQUESTTAGS
  18.  
  19.